home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1999 #2
/
Amiga Plus CD - 1999 - No. 2.iso
/
Anwender
/
Office
/
AmigaWriter
/
Patches
/
AW1.02-GermanSpecial.lha
/
AmigaWriter-1st_Patch
/
Tools
/
source
/
bumprev.srx
< prev
next >
Wrap
Text File
|
1998-09-23
|
2KB
|
58 lines
/*
bumprev.srx
Bump revision
© 1998 HAAGE & PARTNER GmbH
Create a new empty file and attach this make script to it. After the
first make this file contains version 1. Touch this file if you want
a new revision set. Change the version number if you want to increase
it. In this case you should edit the file "xxx_rev.rev" and set the
revision number to 0.
Warning: this make script overwrites its file if the first line does
not contain a single number.
$VER bumprev.srx 2.0 (9.3.98)
*/
/* Don't forget the point '.' at the end \/ */
PARSE ARG '"' filename '"' '"' projectname '"' .
revname = LEFT(filename,LASTPOS('_ver.txt',filename)-1)
SAY ""
SAY "Bumping revision..."
found = 0
IF OPEN(vfile,filename,"Read") == 1 THEN DO
version = READLN(vfile)
IF DATATYPE(version,"Whole") THEN
found = 1
CALL CLOSE(vfile)
END
IF ~found THEN DO
SAY "Version not found - generating new version file"
IF OPEN(vfile,filename,"Write") == 1 THEN DO
CALL WRITELN(vfile,"1")
CALL WRITELN(vfile,"* The first line contains the version number")
CALL WRITELN(vfile,"* If you change this you should also edit the file")
CALL WRITELN(vfile,"* "||revname||"_rev.rev and set the revision")
CALL WRITELN(vfile,"* number to 0.")
CALL WRITELN(vfile,"")
CALL WRITELN(vfile,"* Touch this file if you want to set a new revision number")
CALL CLOSE(vfile)
END
ELSE DO
SAY "Unable to create version file "||filename||"."
EXIT 20
END
version = 1
END
ADDRESS COMMAND "bumprev" version revname
OBJECTS filename revname||"_rev.h" revname||"_rev.i"
SAY "Done."